{ $Id$ }

procedure recursion(a: integer);
begin
	recursion(a + 1);
end;

begin

	recursion(0);
		
	writeln('Error');
	halt(-1);
end.
